unit ContaSearchFr;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  ExtCtrls, Buttons, StdCtrls, DBGrids, MainSearchFr;

type

  { TContaSearchFrame }

  TContaSearchFrame = class(TMainSearchFrame)
    numero_banco: TEdit;
    Label5: TLabel;
    numero_conta: TEdit;
    id_conta: TEdit;
    desc_conta: TEdit;
    Label4: TLabel;
    numero_agencia: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    procedure LocalizarButtonClick(Sender: TObject);

  private
    { private declarations }
  public
    { public declarations }
  end;

implementation

uses ContaDM,QueryConditions;

{ TContaSearchFrame }


procedure TContaSearchFrame.LocalizarButtonClick(Sender: TObject);
var
  condicoes: TQueryConditions;
begin
  condicoes := TQueryConditions.Create(CON_AND);
  condicoes.Add('id_conta', id_conta.Text);
  condicoes.AddText('desc_conta', desc_conta.Text);
  condicoes.AddText('numero_banco', numero_banco.Text);
  condicoes.AddText('numero_agencia', numero_agencia.Text);
  condicoes.AddText('numero_conta', numero_conta.Text);
  ContaData.Search(Condicoes, 'conta');
end;


initialization
  {$I contasearchfr.lrs}

end.

